home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / entropia.dxr / 00026.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.0 KB  |  44 lines
  1. on exitFrame
  2.   global h1, h2, h3
  3.   set h1 to random(3)
  4.   set h2 to random(3)
  5.   set h3 to random(3)
  6.   if h1 = 1 then
  7.     set the visible of sprite 6 to 1
  8.     set the visible of sprite 9 to 0
  9.   else
  10.     if h1 = 2 then
  11.       set the visible of sprite 6 to 1
  12.       set the visible of sprite 9 to 0
  13.     else
  14.       set the visible of sprite 6 to 0
  15.       set the visible of sprite 9 to 0
  16.     end if
  17.   end if
  18.   if h2 = 1 then
  19.     set the visible of sprite 7 to 1
  20.     set the visible of sprite 10 to 0
  21.   else
  22.     if h2 = 2 then
  23.       set the visible of sprite 7 to 1
  24.       set the visible of sprite 10 to 0
  25.     else
  26.       set the visible of sprite 7 to 0
  27.       set the visible of sprite 10 to 0
  28.     end if
  29.   end if
  30.   if h3 = 1 then
  31.     set the visible of sprite 8 to 1
  32.     set the visible of sprite 11 to 0
  33.   else
  34.     if h3 = 2 then
  35.       set the visible of sprite 8 to 1
  36.       set the visible of sprite 11 to 0
  37.     else
  38.       set the visible of sprite 8 to 0
  39.       set the visible of sprite 11 to 0
  40.     end if
  41.   end if
  42.   go("l")
  43. end
  44.